home *** CD-ROM | disk | FTP | other *** search
/ HeiBe Erotik / HeiBe Erotik.iso / erovoll / marioeur / disk1 / inst1.pak / RECHNER.WFM < prev    next >
Text File  |  1999-05-05  |  36KB  |  1,305 lines
  1. ********************************************************************************
  2.  
  3. *
  4. ********************************************************************************
  5. #define MAX_DEC_DIGITS      18
  6. #define MAX_HEX_DIGITS       8
  7. #define DISPLAY_LEN         18
  8. #define HEX_OVERFLOW        2^32
  9. #define DEC_OVERFLOW        10^18
  10.  
  11. create session   && Von diesem Programm werden zwar keine Tabellen benutzt, aber
  12.                  && diese Zeile stellt sicher, daß die verwendeten Variablennamen nicht
  13.                  && auf eine früher geöffnete Tabelle verweisen.
  14. set talk off
  15. set ldCheck off
  16.  
  17. ** END HEADER -- Diese Zeile nicht löschen*
  18. * Erstellt am 05.05.1999
  19. *
  20. parameter bModal
  21. local f
  22. f = new RECHNERFORM()
  23. if (bModal)
  24.    f.mdi = .F. && ensure not MDI
  25.    f.ReadModal()
  26. else
  27.    f.Open()
  28. endif
  29. CLASS RECHNERFORM OF FORM
  30.    Set Procedure To C:\VISUALDB\BEISPIEL\BUTTONS.CC additive
  31.    this.OnOpen = CLASS::ONOPEN
  32.    this.OnGotFocus = CLASS::ONGOTFOCUS
  33.    this.EscExit = .F.
  34.    this.Width = 93.833
  35.    this.View = "EURO.QBE"
  36.    this.MenuFile = "EURO.MNU"
  37.    this.OnClose = CLASS::ONCLOSE
  38.    this.MousePointer = 1
  39.    this.Text = "COMSOFT EURO"
  40.    this.MDI = .F.
  41.    this.Left = 10.333
  42.    this.Top = 0
  43.    this.Minimize = .F.
  44.    this.Maximize = .F.
  45.    this.ColorNormal = "N/W"
  46.    this.Height = 25.1758
  47.  
  48.    DEFINE LINE LINIE1 OF THIS;
  49.        PROPERTY; 
  50.          Width 1,;
  51.          Right 100.5,;
  52.          Bottom 0.4118,;
  53.          Top 0.4118,;
  54.          ColorNormal "WindowText"
  55.  
  56.    DEFINE RECTANGLE RECHTECK1 OF THIS;
  57.        PROPERTY; 
  58.          Width 49.1689,;
  59.          Text "",;
  60.          FontBold .F.,;
  61.          Left 42.8311,;
  62.          Top 4.9395,;
  63.          Height 6.4717
  64.  
  65.    DEFINE TEXT TEXT2 OF THIS;
  66.        PROPERTY; 
  67.          Width 84.666,;
  68.          Text 'EURO Erotic "Typemania VOLLVERSION"',;
  69.          FontBold .F.,;
  70.          FontSize 18,;
  71.          Left 2,;
  72.          Top 0.8223,;
  73.          ColorNormal "B+/W",;
  74.          Height 1.9395
  75.  
  76.    DEFINE RECTANGLE RECTANGLE2 OF THIS;
  77.        PROPERTY; 
  78.          Width 40.002,;
  79.          Text "",;
  80.          BorderStyle 1,;
  81.          Left 0.6641,;
  82.          Top 11.4102,;
  83.          ColorNormal "N/W",;
  84.          Height 3.0596
  85.  
  86.    DEFINE RECTANGLE RECTANGLE1 OF THIS;
  87.        PROPERTY; 
  88.          Width 39.6689,;
  89.          Text "",;
  90.          FontBold .F.,;
  91.          BorderStyle 1,;
  92.          Left 0.8311,;
  93.          Top 3.4688,;
  94.          ColorNormal "N/W",;
  95.          Height 7.9424
  96.  
  97.    DEFINE ENTRYFIELD DISPLAY OF THIS;
  98.        PROPERTY; 
  99.          Function "J",;
  100.          Width 33.002,;
  101.          ValidErrorMsg "Ungültige Eingabe",;
  102.          Value "                 0",;
  103.          FontSize 12,;
  104.          Left 1.8311,;
  105.          Top 4.1758,;
  106.          Enabled .F.,;
  107.          FontName "Arial",;
  108.          ColorNormal "N/W+",;
  109.          Height 1.1768
  110.  
  111.    DEFINE PUSHBUTTON B7 OF THIS;
  112.        PROPERTY; 
  113.          Width 4.002,;
  114.          Group .T.,;
  115.          Text "7",;
  116.          OnClick CLASS::NUMERIC_CLICK,;
  117.          Left 3.1641,;
  118.          Top 5.5293,;
  119.          ColorNormal "B/W",;
  120.          FontName "Arial",;
  121.          Height 1.1758
  122.  
  123.    DEFINE PUSHBUTTON B8 OF THIS;
  124.        PROPERTY; 
  125.          Width 4.002,;
  126.          Group .T.,;
  127.          Text "8",;
  128.          OnClick CLASS::NUMERIC_CLICK,;
  129.          Left 7.6641,;
  130.          Top 5.5293,;
  131.          ColorNormal "B/W",;
  132.          FontName "Arial",;
  133.          Height 1.1758
  134.  
  135.    DEFINE PUSHBUTTON B9 OF THIS;
  136.        PROPERTY; 
  137.          Width 4.002,;
  138.          Group .T.,;
  139.          Text "9",;
  140.          OnClick CLASS::NUMERIC_CLICK,;
  141.          Left 12.1641,;
  142.          Top 5.5293,;
  143.          ColorNormal "B/W",;
  144.          FontName "Arial",;
  145.          Height 1.1758
  146.  
  147.    DEFINE PUSHBUTTON B4 OF THIS;
  148.        PROPERTY; 
  149.          Width 4.002,;
  150.          Group .T.,;
  151.          Text "4",;
  152.          OnClick CLASS::NUMERIC_CLICK,;
  153.          Left 3.1641,;
  154.          Top 7,;
  155.          ColorNormal "B/W",;
  156.          FontName "Arial",;
  157.          Height 1.1758
  158.  
  159.    DEFINE PUSHBUTTON B5 OF THIS;
  160.        PROPERTY; 
  161.          Width 4.002,;
  162.          Group .T.,;
  163.          Text "5",;
  164.          OnClick CLASS::NUMERIC_CLICK,;
  165.          Left 7.6641,;
  166.          Top 7,;
  167.          ColorNormal "B/W",;
  168.          FontName "Arial",;
  169.          Height 1.1758
  170.  
  171.    DEFINE PUSHBUTTON B6 OF THIS;
  172.        PROPERTY; 
  173.          Width 4.002,;
  174.          Group .T.,;
  175.          Text "6",;
  176.          OnClick CLASS::NUMERIC_CLICK,;
  177.          Left 12.1641,;
  178.          Top 7,;
  179.          ColorNormal "B/W",;
  180.          FontName "Arial",;
  181.          Height 1.1758
  182.  
  183.    DEFINE PUSHBUTTON B1 OF THIS;
  184.        PROPERTY; 
  185.          Width 4.002,;
  186.          Group .T.,;
  187.          Text "1",;
  188.          OnClick CLASS::NUMERIC_CLICK,;
  189.          Left 3.1641,;
  190.          Top 8.4688,;
  191.          ColorNormal "B/W",;
  192.          FontName "Arial",;
  193.          Height 1.1768
  194.  
  195.    DEFINE PUSHBUTTON B2 OF THIS;
  196.        PROPERTY; 
  197.          Width 4.002,;
  198.          Group .T.,;
  199.          Text "2",;
  200.          OnClick CLASS::NUMERIC_CLICK,;
  201.          Left 7.6641,;
  202.          Top 8.4688,;
  203.          ColorNormal "B/W",;
  204.          FontName "Arial",;
  205.          Height 1.1768
  206.  
  207.    DEFINE PUSHBUTTON B3 OF THIS;
  208.        PROPERTY; 
  209.          Width 4.002,;
  210.          Group .T.,;
  211.          Text "3",;
  212.          OnClick CLASS::NUMERIC_CLICK,;
  213.          Left 12.1641,;
  214.          Top 8.4688,;
  215.          ColorNormal "B/W",;
  216.          FontName "Arial",;
  217.          Height 1.1768
  218.  
  219.    DEFINE PUSHBUTTON OPPLUSMINUS OF THIS;
  220.        PROPERTY; 
  221.          Width 4.002,;
  222.          Group .T.,;
  223.          Text "+/-",;
  224.          OnClick CLASS::PLUSMINUS_CLICK,;
  225.          FontSize 10,;
  226.          Left 3.1641,;
  227.          Top 9.9395,;
  228.          ColorNormal "N/W",;
  229.          FontName "Arial",;
  230.          Height 1.1768
  231.  
  232.    DEFINE PUSHBUTTON B0 OF THIS;
  233.        PROPERTY; 
  234.          Width 4.002,;
  235.          Group .T.,;
  236.          Text "0",;
  237.          OnClick CLASS::NUMERIC_CLICK,;
  238.          Left 7.6641,;
  239.          Top 9.9395,;
  240.          ColorNormal "B/W",;
  241.          FontName "Arial",;
  242.          Height 1.1768
  243.  
  244.    DEFINE PUSHBUTTON PERIOD OF THIS;
  245.        PROPERTY; 
  246.          Width 4.002,;
  247.          Group .T.,;
  248.          Text " ",;
  249.          OnClick CLASS::PERIOD_CLICK,;
  250.          FontSize 10,;
  251.          Left 12.1641,;
  252.          Top 9.9395,;
  253.          ColorNormal "N/W",;
  254.          FontName "Arial",;
  255.          Height 1.1768
  256.  
  257.    DEFINE PUSHBUTTON OPPOWER OF THIS;
  258.        PROPERTY; 
  259.          Width 4.002,;
  260.          Group .T.,;
  261.          Text "^",;
  262.          OnClick CLASS::OP_CLICK,;
  263.          FontSize 10,;
  264.          Left 18.1641,;
  265.          Top 5.5293,;
  266.          ColorNormal "N/W",;
  267.          FontName "Arial",;
  268.          Height 1.1758
  269.  
  270.    DEFINE PUSHBUTTON OPTIMES OF THIS;
  271.        PROPERTY; 
  272.          Width 4.002,;
  273.          Group .T.,;
  274.          Text "*",;
  275.          OnClick CLASS::OP_CLICK,;
  276.          FontSize 10,;
  277.          Left 18.1641,;
  278.          Top 7,;
  279.          ColorNormal "N/W",;
  280.          FontName "Arial",;
  281.          Height 1.1758
  282.  
  283.    DEFINE PUSHBUTTON OPDIV OF THIS;
  284.        PROPERTY; 
  285.          Width 4.002,;
  286.          Group .T.,;
  287.          Text "/",;
  288.          OnClick CLASS::OP_CLICK,;
  289.          FontSize 10,;
  290.          Left 18.1641,;
  291.          Top 8.4688,;
  292.          ColorNormal "N/W",;
  293.          FontName "Arial",;
  294.          Height 1.1768
  295.  
  296.    DEFINE PUSHBUTTON OPMINUS OF THIS;
  297.        PROPERTY; 
  298.          Width 4.002,;
  299.          Group .T.,;
  300.          Text "-",;
  301.          OnClick CLASS::OP_CLICK,;
  302.          FontSize 10,;
  303.          Left 18.1641,;
  304.          Top 9.9395,;
  305.          ColorNormal "N/W",;
  306.          FontName "Arial",;
  307.          Height 1.1768
  308.  
  309.    DEFINE PUSHBUTTON CLEAR OF THIS;
  310.        PROPERTY; 
  311.          Width 4.002,;
  312.          Group .T.,;
  313.          Text "CE\C",;
  314.          FontBold .F.,;
  315.          OnClick CLASS::CLEAR_CLICK,;
  316.          FontSize 7,;
  317.          Left 22.6641,;
  318.          Top 5.5293,;
  319.          ColorNormal "W*/R",;
  320.          FontName "Arial",;
  321.          Height 1.1758
  322.  
  323.    DEFINE PUSHBUTTON OPEQUAL OF THIS;
  324.        PROPERTY; 
  325.          Width 4.002,;
  326.          Group .T.,;
  327.          Text "=",;
  328.          Def